10 MODE 0:x=10:y=12:a=1:b=1:IF p=13 THEN CLS:?"Boeser Watz gewinnt!":END
20 LOCATE x,y:? CHR$(225):s=INT(RND(1)*1000)+1:SOUND 1,s
30 IF JOY(0)=4 THEN LOCATE x,y:CALL &BD19:? CHR$(32):IF x>1 THEN x=x-1
40 IF JOY(0)=8 THEN LOCATE x,y:CALL &BD19:? CHR$(32):IF x<20 THEN x=x+1
50 IF JOY(0)=1 THEN LOCATE x,y:CALL &BD19:? CHR$(32):IF y>1 THEN Y=Y-1
60 IF JOY(0)=2 THEN LOCATE x,y:CALL &BD19:? CHR$(32):IF Y<24 THEN y=y+1
70 IF b=x AND a=y THEN LOCATE x,y:? CHR$(224):p=p+1:FOR w=1 TO 99:NEXT w:GOTO 10
80 LOCATE b,a:? CHR$(32):b=b+1: IF b=21 THEN c=c+1:b=1:a=INT(RND(1)*24)+1
90 LOCATE b,a:? CHR$(249):IF c=13 THEN GOTO 100 ELSE GOTO 20
100 PRINT"Boeser Watz verliert":? "Watz:"p" Kinder:"c:SOUND 1,400,300:END